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ABSTRACT 


T STS WHICH 
CHECK ONLY THE TMA,B-11 FEATURES OF DATA TRANSFER AT ODD 
SYTE STARTING ADDRESS AND OPERATION INCOMPLETE TIME OUT. 


REQUIREMENTS 


A. USE STANDARD PROCEDURE FOR LOADING BINARY PAPER TAPE 
B. TH'S PROGRAM IS LOADABLE AND CHAINABLE PER XXDP, ACT11, 
AND SLIDE. IN 8K OF MEMORY. (SEE 7.1) 


STARTING PROCEDURE 


THERE ARE TWO (2) STARTING ADDRESSES THAT MAY BE USED; 
200(8) AND 210(8). 


A. 200(8): STARTING AT THIS ADDRESS WILL CAUSE A yo gn 
IDENTIFICATION HEADER TO BE PRINTED AND ALSO A 
REQUEST FOR ENTRY OF T IT NUMBER (TAPE 





HE UN TRANSPORT SELECT). 
THE DEFAULT SELECTION OF UNIT ZERO (0) IS DISPLAYED, AND 
MAY BE CHANGED TO ANY NUMBER (0-7) OR UNCHANGED BY 
TYPING THE DESIRED NUMBER OR A CARRIAGE RETURN. 
IF THE SELECTED UNIT IS NOT AVAILABLE, A MESSAGE WILL 
BE PRINTED SO STATING, AND THE UNIT SELECT REQUEST REPEATED. 


B. 210(8): STARTING AT THIS ADDRESS WILL NOT PRINT THE HEADER OR THE 








UNI7 SELECT REQUEST AND IS INTENDED AS A RESTART ADDRESS ONLY. 


SEQ 0003 
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CONSOLE SWITCH SETTING 


ALL SWITCHES EXCEPT 3-9 ARE USED AND THE NORMAI., OR DEFAULT, RUN 
IS DONE WITH ALL SWITCHES SET TO ZERO (0). 
ALL SWITCHES ARE DYNAMIC AND MAY BE CHANGED AT ANY TIME. 


Sw15: 1=HALT ON ERROR 
O=CONT INUE 
SW14: 1=LOOP ON ERROR (SCOPE) 
O=CONT INUE 
Sw1 53: 1=]NHIBIT ERROR TYPE SUT 
=PRINT ALL ERRORS 
SW12: 1=INHIBIT ITERATION**(FIRST PASS IS SINGLE ITERATION) ** 
O=ITERATE EACH TEST ITS ASSIGNED AMOUNT 
Sw11: 1=CONTINUOUS CYCLE 
=HALT AT END OF PASS 
SwW10: 1=HALT AT END OF CURRENT TEST 
O=CONT INUE 
Sw9-3: 


NOT USED 
SW2-0: SELECT INDIVIDUAL TEST (1-4)** 00 = DO ALL TESTS 


THIS PROGRAM HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE Swi TCH REGISTER. WHEN FIRST EXECUTED THE cama A TESTS 

THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 

SOFTWARE SWITCH REGISTER LOCATION (SWREG=LOC. 176 ) IS DEFAULTED TO. 

IF THIS IS THE CASE, UPON EXECUTION THE CONTENTS oF THE SWREG ARE 

DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 


(IE) SWR=XXXXXX NEW= 
POSSIBLE RESPONSES ARE: 


:. <CR> IF NO CHANGES ARE TO BE MADE 

” 6 DIGITS 0-7 TO REPRESENT IN ‘gy THE NEW gag REGISTER 
VALUE ;LAST DIGIT FOLLOWED BY <CR> 

. “U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 
KEYING IN SWREG VALUE. 

4. <LF> ONLY VALID FOR ACT-11 SYSTEMS-DO NOT USE 


BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING “G 

(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG, WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS, AND OTHER 
APPLICABLE AREAS. 


THE PROGRAM IS FURTHER MODIFIED TO TEST 1-8 DEVICES IN ACT MODE. 


=~ 
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FRROR PRINTOUTS 


THERE ARE THREE (3) TYPES OF ERROR PRINTOUTS WHICH MAY 
APPEAR: STATUS ERROR, DATA ERROR, POSITION ERROR. 


A. STATUS ERROR: ANY READ, WRITE, OR SPACE OPERATION WHICH 
RESULTS IN SOME BAD STATUS (BIT 15 OF MTC), 
OR UNEXPECTED BUS ADDRESS, OR INCORRECT 
BYTE COUNT, WILL BE PRINICD. 


B. DATA ERROR: ANY READ OPERATION WHICH RESULTS IN UNEXPECTED 
DATA WILL BE PRINTED. 

C. POSITION ERROR: ANY SPACE OR REWIND OPERATION lace IN 
UNEXPECTED STATUS WILL BE PRINTED 


EXAMPLES*** 
1. THE FOLLOWING EXAMPLE SHOWS A TYPICAL STATUS ERROR. 
TEST1: WRITE FROM ODD BYTE 


WRITE ERROR THIS PRINT SHOWS THAT WHILE EXECUTING 
MTS: 10101 TEST 1 ON UNIT 2 AT 800 BPI, A WRITE 
MTC: 161204 PARITY ERROR OCCURED. THE BYTE COUNT 
MTBC: O IS ZERO AS IT SHOULD BE AND THE CURRENT 
MTCA: 6003 6005 ADDRESS IS AS EXPECTED. 


2. THE FOLLOWING EXAMPLE SHOWS A TYPICAL DATA ERROR. 
TEST 2: READ TO ODD BYTE 


DATA ERROR THIS PRINT SHOWS THAT A SINGLE BIT WAS 

' 0 A ge UP IN BOTH CHARACTER NUMBER ZERO 
: 00000000 (0) AND CHARACTER NUMBER THREE (3). 

8: 01000000 

CN: 3 

G: 90000011 

B: 01000011 


3. THE FOLLOWING EXAMPLE SHOWS AN ERROR DURING A REWIND OPERATION. 


TESTS: OPI TOO LONG 
REWIND ERROR: NO BOT 


SEQ 0005 
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Fie OPERAT 1 ON 


THE PROCEDURES FOR OPERATING THIS PROGRAM ARE QUITE 
SIMPLE AND REQUIRE ONLY A FEW STEPS: 


1. LOAD ADDRESS 200 OR 210 
2. SET SWICHES FOR DESIRED TEST SEQUENCE 
3. PRESS START 


CHANGE D 
AT ANY TIME. THE NORMAL OPERATING SEQUENCE IS ALL SWITCHES 
DOWN (0). THE PROGRAM WILL TAKE APPROXIMATELY 1.25 MINUTES 
TO RUN; HOWEVER, IF ITERATIONS ARE INHIBITED (SW11=1), THE 
PROGRAM WILL RUN IN ABOUT .75 MINUTES. THE END OF PASS 
Soe” A PRINTOUT STATING END OF PASS AND THE NUMBER OF 


SINGLE TEST SELECTION: (SWO-SW35) 


WHEN SWO-3 ARE SET TO ZERO (0), THE se WILL 

EXECUTE ALL TESTS (1-4) IN SEQUENCE AS A SINGLE PASS. 
IF SWO-3 ARE SET TO SOME R BETWEEN 1 AND 4, 
THEN THAT PARTICULAR TEST — BE EXECUTED CONTINUOUSLY. 
THE PROGRAM MAY BE STOPPED AT THE END OF THE CURRENT 
TEST (EITHER IN SEQUENCE OR SINGLE TEST MODE) BY SETTING 
SWITCH TEN (SW10) TO A ONE (1). YOU MAY SELECT TEST 
NUMBERS IN ANY ORDER (UP OR DOWN) BECAUSE EACH TEST 
IS SELF CONTAINED. 

7.17 CHAIN MODE RUNS A SINGLE PASS ON DRIVE O WITH 7” OR 9 TRACK 
AT THE STANDARD UNIBUS ADDRESS. 
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TEST DESCRIPTION 


TESTI: 


TEST: 


WRITE FROM ODD BYTE 


THE PURPOSE OF THIS TEST IS TO ASSURE dg DATA MAY BE 
TRANSFERRED FROM MEMORY TO TAPE STARTING FROM AN ODD 
BYTE ADDRESS. THE TEST WILL WRITE A SIX (6) BYTE RECORD 
FROM AN ODD ADDRESS (WDATA+1) AND READ THAT RECORD 
BACK INTO AN EVEN ADDRESS (RDATA). NO STATUS ERROR SHOULD 
OCCUR, AND THE READ DATA SHOULD BE POSITIONED PROPERLY. 
THE RECORD IS SIX BYES LONG, EACH BYTE IS ITS NUMBER (0,1,2,3,4,5) 


READ TO ODD BYTE 


THE PURPOSE OF THIS TEST IS TO ASSURE THAT DATA MAY BE 

TAPE TO MEMORY STARTING AT AN ODD BYTE 
ADDRESS. THE PROCEDURE IS THE SAME AS IN TEST ONE (1), 
EXCEPT THAT THE WRITE IS FROM AN EVEN ADDRESS (WDATA) 
AND THE READ IS TO AN ODD ADDRESS (RDATA+1). 


TESTS: OPI TOO LONG (OPI = BIT 8 OF MTS) 


THE PURPOSE OF THIS TEST IS TO ASSURE THAT THE OPI TIMER 
THE DRIVE BEFORE THIRTY FIVE FEET OF BLANK 

TAPE IS PASSED. THE PROCEDURE IS TO PERFORM A WRITE WITH 
IRG. BACKSPACE, WRITE WITH IRG 105 (10), TIMES IN ORDER 

O ERASE 35 FEET OF TAPE. AFTER REWIND, ISSUE A READ 
COMMAND AND OPI SHOULD TIME OUT BEFORE ORE THE FIRST RECORD 
(35 FEET DOWN TAPE) IS FOUND. THE NOMINAL VALUE FOR OPI 
IS SEVEN SECONDS (7SEC) OR ABOUT TWENTY-SIX FEET (oe FT) 
OF TAPE. THIRTY-FIVE FEET OF TAPE REFLECTS THE MAXIMUM 
TOLERANCE FOR OPI. 


TEST4: OPI TOO SHORT (OPI = BIT 8 OF MTS) 


LISTING 


THE PURPOSE OF THIS TEST IS TO ASSURE THAT THE OPI TIMER 
“ye NOT SHUTDOWN THE DRIVE gh’ RU FEET (16 FT) 


THE FIRST RECORD IS FOUND (16 FEET APE). E 
SIXTEEN FEET OF TAPE RELECTS THE MINIMUM TOLERANCE FOR OPI. 
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TITLE CZTMFFO TMA,B-11 SPLMT 
:Z7Z - CZTMFFO oe aoe 


;R. BARNES 
~ENABLE ABS,AMA 


SREGISTER EQUIVS***eaKxKKne 


> TRAP CATCHERS * ®t eexnnn 


SEQ 0008 


KHKKKKKEY oz 
VIFWN—ODONO “T 


oO 


327 


P11 


000040 


00004 1 


000042 


000046 


000052 


001000 
000040 
GOO 
000041 
000 
000042 


OGO000 


000046 
002160 
000052 
000000 


001600 


000100 
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TRRALAELALEAEAALABAAARRERR EERE RRR EERE RRR RR RRR RRR RRR RRR RSS S SS 


MODIFIED JAN 10 1978 


++ 


ACT11 AND XXDP HOOKS 


$SVPC=. sSAVE PC 
.=40 
DRIVE: .BYTE QO :DRIVE 4 FOR XXDP LOAD MEDIUM 


; ASSEMBLE AS A 0 


241 
MEDIUM: .BYTE 0 :XXDP LOAD MEDIUM 


;ASSEMBLE AS A 0 


-=42 

-WORD 0 ;AUTO/MAN MODE INDICATOR 
;ASSEMBLE AS A 0 

-=46 

-WORD $ENDAD ;SET TO SENDAD IN .SEOP 

-=52 

-WORD 0 ; CHARACTERISTICS OF PROGRAM 
;ASSEMBLE AS A 0 

.=$SVPC sRESTORE PC ; 


RRR KARE EAAEEEEKEEEERERERAEAAEEEAKEAEEAEEEEEAEEEEEEEREESE 


SEQ 0009 
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KEES 


MODIFIED JAN 10 1978 


ACT11 AND XXDP MODE INDICATORS 


AUTOM: .WORD 0Q ;AUTOMATIC MODE INDICATOR 
ACT11M: .BYT 0 sACT11 AUTO MODE INDICATOR 
XXDPM: .BYTE 0 XXDP AUTO MODE INDICATOR 
ADUMPM: .BYTE 0 VACTI1 DUMP MODE INDICA 
XDUMPM: .BYTE 0 ;XXDP DUMP MODE INDICATOR 
ACTCNR: .WORD 0 ;ACT MODE PASS COUNTER 

TBL : -WORD 0 ;OFFLINE DEVICE POINTER 
TEMP4: .WORD 0 ; TEMPO DEVICE POINTER 


RR KEE KEE EKER KEEEEEEEKKEKEEEEKEKEREEEEEEEEEEE 


SEQ 0010 
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70 
AS SAAC ISIOIDIOISISISISISIISIDIOINIOIUIOIUIIDIUIICIDIDIOIOIDIOIOIUIOIIOI IIIT IIIT 
372 “NOTE: PROGRAM HAS BEEN MODIFIED TO RUN WITH OR WITHOUT 
373 ; A HARDWARE SWITCH REGISTER-REFER TO DOCUMENT 

374 SOR IEIUIO RII ISIIIOIOIIIOIIIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOIOI IIIT TIAA 


CZTMFFO TMA,B=-11 SPLMTL ANS TS 


001000 


000001 
091012 


CZTMFF .P11 16-AUG-78 08:4 
376 
377 
378 000060 
379 000060 004724 
380 000062 000000 
381 
382 
383 
384 
385 000174 
386 000174 000000 
387 000176 000000 
388 
389 
390 
391 000200 
392 000200 005000 
393 000202 000137 
394 
395 210 
396 000210 012700 
397 000214 137 
398 
399 
400 
401 C00224 
402 000224 004704 
403 000226 000340 
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>TTY INTERRUPT VECTOR****eanane 
.=60 


_— ;TTY INTERRUPT HANDLER 


>SOFTWARE SWITCH REGISTER LOCATIONS****nananne 


> STARTING ADDRESS 88 kee eeeaaee nen 
=< 0 


CLR R0 
JMP START :PROGRAM START 
MOV #1,R9 


JMP RSTART *-NO HEADER START 
> TMA,B-11 INTERRUPT VECTOR* *«*a naan 
-=224 


MTINT ) :TAPE INTERRUPT HANDLER 


SEQ 0012 
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405 000600 .=600 
406 > CONSTANTS**exaenene 
407 
408 000600 172520 MTS: 172520 ; ; TAPE STATUS REGISTER 
409 000602 172522 MTC: 172522 ;TAPE COMMAND REGISTER 
410 000604 172524 MTBC 72524 ; TAPE BYTE COUNTER 
411 000606 172526 MTBA 72526 ; TAPE BUS ADDRESS 
412 000610 S “UNIT DESCRIPTION(PRESET FOR UNIT 0) 
413 000612 20 RCNT 0 ;RECORD COUNT 
414 000614 177760 CCNT 20 3< 
415 000616 177776 PSW COre8 Panes STAT 

CONS 


419 000626 177562 TKB 77562 =;TTY READ BUFF 

420 TPS 75 TTY PUNCH STATUS 

421 000632 177566 t 77566 =;TTY OUTPUT BUF 

422 000634 I TAMT 0 ;NUMBER OF ITERATIONS 
423 000636 STALL sREADY DELAY MULTIPLIER 


= 
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425 FLAGS AND COUNTERS##teanenne 
426 
427 000000 T INF 0 
4 G.3642 000000 T 0 
4 000000 B 0 
4 000646 000000 TEMP1: O 
431 000650 000000 TEMP 0 
432 000652 000000 TEMP 
4 000654 000000 EMADDR: 0 
434 000656 000000 ERRAD: 0 
435 000000 LTADD: 0 
436 000662 000000 ITRLP: O 
437 000664 000000 SPFLG: 0O 
4 000000 STFLG: 0O 
439 000670 000000 PCNTR: O 
440 0006 000000 0 
441 000674 000000 BYTES: 0 
442 000676 000000 SCNT 0 
44 000000 0 
444 000702 000000 ITCNT: O 
445 704 000000 CRCNT: O 
000000 DERFL: O 
447 000710 000000 HDRFL: 0O 
448 000712 000000 PFLG 0 
449 000714 000000 0 
450 000716 000000 BCNI 0 
451 720 000000 T: QO 
452 000722 000000 TEMPST: 0 
453 000724 000000 RDSw 0 
454 
455 
ris : TEST ENTRY TABLE ®teexeanns 
458 000726 000000 TSTTBL: O 
459 7 000000 ° 0 
000732 002234 TIAD: LT? 
461 000734 0022 TIJAD: LT1 
002462 T2ZAD: LT2 
463 000740 002462 T2IAD: LT2 
000742 0027 T3AD: LT3 
465 000744 003002 T3IAD: LT3IT 
466 000746 0031 TGAD: 114 
467 000750 003232 T4IAD: LIT4IT 
000752 0 


sh age _ at} SPLMTL 
CZ 16-AUG- 


TMFF .P 


502 


BELEERE 


PAVIA YIM VV) 
PN ge te ee 
MEW O OO NAUSWN © 


064 
001072 
1100 


eee aed nd cand cand ceed eed cen ed ed cad eed eens ed ed ed 
bad 
SESKFSERSESRSROR 


Rex 


MNIMIAQMOARD 
nono 
ENMaRS 


001000 


012737 
005037 
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177570 
000106 
000340 
000500 
000006 


000004 
001054 
177777 


0001 76 
000174 


MACY11 30A(1052) 


000620 
177576 


000004 
177550 
000620 
177526 
000622 


00004 1 


177426 


000620 


4$: 


S$: 
STO: 


1$: 


$ACT: 


C 
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SERA EKEEKEKEEREEEEEEREKRREEKEE 


:PROGRAM START AND HOUSEKEEPING 


RARER EREEERREEREREEE 


w\l reer o SWR eet a TO CONSOLE SWITCHES 


lO ; INIT PASS COUNTER ++ C.W 
#340 ,aPSW :SET PRIORITY 
#500.SP :SET STACK POINTER 
a6 ,- (SP) ;SAVE VECTORS 
a4 ,- (SP) 
1$, 044 ;SET UP FOR TIMEOUT 
#-1 ,ASWR sREFERENCE HARDWARE SWITCH REGISTER 


3$ 
(SP) +, (SP)+ sADJUST STACK 


ASWREG, SWR “POINT TO SOFTWARE SWITCH REG 
#4000, aSWR “DEFAULT TO MULTIPLE PASSES ++ C.W 
#DISPREG,.DISPLAY:POINT TO SOFT DISPLAY REG 
(SP) +, an4 “RESTORE VECTORS 
(SP) +, a#6 
#6, ate :TM=11 MAG TAPE? 
#MSG22,R4 
pc TOUT : LOADER TM-11 MAG TAPE 
PC, CKMODE “CHECK FOR MODE OF OPERATION ++ C.W 
ACT11M -ACT11 MODE? ++ C.W 
SACT “BRANCH - IF YES ++ C.W 
#10000, aMTC =POWER CLEAN 
* SKIP HEADER? ++ C.W 
5$ “BRANCH - IF NO ++ C.W 
ST4 -GO DO TEST ++ C.W 
WMSG1,R4 :GET HEADER MESSAGE ++ C.W 
PC, TTOUT PRINT HEADER 
#MSG2.R4 “GET REQUEST MESSAGE ++ C.W 
PC TTOUT “REQUEST DRIVE NUMBER 
UDES =PRESET UNIT 0 
UDES .R3 *GET UNIT NUMBER 
R -POSITION 
a 77770. R3 “MASK UNIT NUMBER 
PC,OCTP “PRINT CURRENT VALUE 
ari? “CHAIN MODE? 
;IF NO, BR 

#176, SuR -STORE SWR 
#TEMP3,R5 *SET SAVE LOCATION 

1,R1 ;SET SIZE OF ENTRY 
#7 ,R2 ET UPPER LIMIT 

“R3 “SET LOWER LIMIT 
PC,TTR -GO GET UNIT-NUMBE 
ACT11M “ACT MODE? ++ C.W 
NOACT “BRANCH IF NO ++ C.W 
UDE S “INIT DEVICE POINTER ++ C.W 
TEMPS INIT TEMPO LOCATION ++ ClW 
L. 


SINIT ++ C.W 
TBL INIT OF FL INE DEVICE POINTER ++ C.W 


SEQ 0015 
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526 001316 122737 000010 000610 ST: CMPB = #10, UDESS :ALL UNITS DONE? ++ C.W 
527 001324 001002 BNE 1$ “BRANCH - IF NO ++ C.W 
$28 001326 000137 002112 JMP SDONE “DO END OF PASS ++ C.W 
529 001332 113737 000610 000652 1S: MOVB -UDES, TEMP3 ‘GET UNIT NUMBER ++ C.W 
530 001340 000337 000652 NOACT: SWAB TEMPS “POSITION UNIT NUMBER 
531 001344 105037 000652 CLRB TEMPS “GET RID OF GARBAGE ++ C.W 
$32 001350 042737 003400 000610 BIC #3400, UDES “CLEAR OLD NUMBER 
$33 001356 053737 000652 000610 BIS TEMP3,UDES “LOAD NEW NUMBER 
534 013737 000610 060112 MOV UDES. TEMP4 = SAVE NUMBER 
$535 001372 105037 000112 CLRB  —s TEMP4 “KEEP BITS 8, 9. 16° oe C.W 
53% 4001376 «4152737. 000017 000112 BISB #17,TEMP4 ;SET REWIND COMMAND ++ C.W 
537 012777 01 177170 MOV #10000, aMTC R CLEAN 
538 001412 013777 000112 177162 MOV TEMP , aMTC “SELECT UNIT 
539 001420 005000 CLR R 
640 001422 105737 000102 TSTB  ACT11M sACT MODE? ++ C.W 
541 001426 001011 BNE ST1 “BRANCH ~ IF YES ++ C.W 
542 001430 022737 000176 000620 CMP HSWREG, SWR 
543 001436 001005 BNE ST1 
544 001440 005737 000042 TST w42 sAUTO MODE? ++ C.W 
545 001444 001002 BNE ST1 “BRANCH - IF YES ++ C.Ww 
546 001446 004737 005776 JSR PC, CNTLU 
547 001452 032777 000100 177120 ST1: BIT #100, aMTS -SEE IF SELECT REMOTE 
548 001460 001030 BNE ST2 -IF SO: BR 
549 001462 005300 DEC RO 
550 001464 001372 BNE ST1 :DELAY FOR SELECT REMOTE 
551 001466 105737 000102 TSTB. = ACT11™ “ACT MODE? ++ C.W 
552 001472 001412 BEQ 1$ “BRANCH = IF NO ++ C.W 
553 001474 105237 000610 INCB —sCUDES “STEP TO NEXT UNIT ++ C.W 
554 001500 105237 000110 INCB —=‘TTBL “OFFLINE UNIT COUNT ++ C.W 
555 001504 122737 000010 000110 (MPR ~—s«s#' 10, TBL “ALL UNITS DONE? ++ C. -W 
556 001512 001301 BNE ST “BRANCH = IF NO ++ C.W 
557 001514 005037 000110 CLR TBL “REINIT OFFLINE UNIT COUNT ++ C.W 
558 001520 012704 006764 1$: MOV #MSG21.R4 
559 001524 004737 005172 JSR PC_TTOUT :PRINT NOT AVAILABLE 
560 001530 005737 000042 TST a2 *SEE IF CHAIN MODE 
561 001534 001617 BEQ STO “IF NO, BR 
562 001536 000137 002112 MP SDONE :E 
563 001542 105737 000102 ST2: TSTB. = ACT11M “ACT MODE? ++ C.W 
564 001546 001411 BEQ 1$ “BRANCH - IF NO ++ C.W 
565 001550 032777 000040 177022 2%: BIT #40,aMTS “BOT? ++ C.W 
566 001556 001774 BEQ $ “BRANCH - IF NO ++ C.W 
567 001560 013737 000610 000112 MOV UDES, TEMP4 “SAVE OLD DEVICE NUMBER ++ C.W 
568 001566 105037 000610 CLRB —sUDESS “KEEP BITS 8,9,10 ++ C.W 
569 001572 032777 000020 177000 1%: BIT #20,aMTS “SEE IF 7 CHANNEL 
570 001600 001404 BEQ ST “IF NOT: BR 
571 001602 052737 040000 000610 BIS #40000, UDES “SET TO 800 BPI 7 CHAN 
572 001610 000403 BR ST 

001612 052737 060000 000610 SsT3: BIS #60000, UDES :SET TO 800 BPI 9 CHAN 
74 001620 000240 S14: NOP 
575 001622 012702 000642 MOV #T0B,R2 :GET START OF TABLE 
576 001626 012700 000027 MOV #27,RO “SET SIZE OF TABLE 
577 001632 005022 STS: CLR (R2)+ “CLEAR TABLE 
578 001634 005300 DEC RO 
579 001636 001375 BNE ST5 ;D0_ ALL 
580 001640 105737 000102 TSTB. =A 11M ACT MODE? ++ C.W 
581 001644 0601002 BNE TSCD BRANCH = IF YES ++ C.W 


TMF F 
TMF F 
382 
83 


WI 


2 
O TMA.B-11 SPLMTL INSTR MACY11 30A(1052) 16-AUG-78 08:51 PAGE 17 
P11 16-AUG-78 08:48 


001646 005037 000670 CLR PCNTR ;CLEAR PASS COUNTER 


SEQ 0017 


CZTMFFO TMA,B-11 SPLMTL 


CZTMFF P11 


SESRORERSS 


AXAAAOSOA OO 
and aod and an aud end and and 
NOUSWN HO 


618 


INSTR 
748 


16-AUG=78 08:4 


005724 
000066 
176614 
177760 


000001 
000005 


MACY11 


176636 


000610 


30A(1052) 


TSCD: 


TSCDO: 


TSCD1: 


TSCD2: 


TSCD3: 


STSCD: 


TEND: 


$DONE : 


F 
16-AUG-78 08:51 
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> TEST SCHEDULAR*® *eeaannne 


STFLG 

aSwWR RO 

#177700,RO 

RO 

STSCD 

#TSTTBL,LTADD 
TADD 

LTADD,ITRLP 
TRLP 


aSwR RO 
#177760,RO 
RO 

TSCD 

#1, STFLG 
#5.R0 

TEND 

RO 


R 
#TSTTBL ,LTADD 


;CLEAR SINGLE TEST FLAG 
:GET SWITCH REGISTER 
:MASK TEST SELECT 

;SEE IF SINGLE TEST SELECT 


;1F SO: BR 
:GET TABLE START 
;SET ITERATION ADDRESS 
4 IF END OF CYCLE 
F NOT: BR 


“G0 TO END i 
;CLEAR HEADER FLAG 
-GET TEST ADDRESS 
:GO TO TEST 

;SEE IF HALT ON TEST 
;IF NOT: BR 

;GO TEST FOR “*G 


;SEE IF SINGLE TEST 
;1F NOT: BR 


:GET TES 

;SEE IF ALL TESTS 

;IF SO: BR 

;SET SINGLE TEST FLAG 

;SEE IF EXCEEDED TEST NUMBER 
;IF SO: BR 


ON NUMBER 
“GET START OF TABLE 
;SET POINTER 


eA teen ADDRESS 


;BRANC C.W 
sRESTORE DRIVE NUMBER ++ C.W 
:GET NEXT UNIT ++ C.W 

-GO TEST NEXT UNIT ++ C.W 


; PRINT END OF PASS 

ACT MODE? ++ C.W 
:BRANCH ~ NO ++ C.W 
:GET ACT PASS COUNT ++ C.W 
:PRINT PASS NUMBER 
:;GET PASS NUMBER ++ C.W 
:PRINT PASS NUMBER ++ C.WW 





SEG 0018 


CZTMFFO aT ,B-11 SPLMTL 


CZTMFF .P 16-AUG~ 


INSTR 


78 08:48 


004000 
000102 
905724 
000670 
001652 
000106 
001270 


003526 
007356 
0000 


MACY11 30A(1052) 


176422 


000654 


SENDAD : 


HERE : 


TENDX: 


LT1: 


LT1B: 


LT1C: 


LTD: 


G 
16-AUG-78 08:51 


JSR PC, (R3) 


#4000, aSWR 
TENDX 


TSTB ACT11M 
BNE 1$ 


JSR PC, CKSWR 
PCNTR 


TSCD 
INC ACTCNR 
$ACT 





"4 
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;SEE IF HALT ON PASS 
;1F NOT: BR 


;ACT MODE? ++ C.W 


“BRANCH ~ IF YES ++ C.W 
:GO TEST FOR *G 


:BUMP PASS COUNTER 


;RESTART 
:BUMP PASS COUNTER IN ACT MODE ++ Cw 
SRESTART IN ACT MODE ++ C.W 


SRAERAARR AREER ERE ARERR ARRRAE RRR RR ED 


WRITE FROM ODD BYTE 


TEST 1: 


:THIS TEST WILL gh A SIX (6) BYTE RECORD 
:FR NG ADDRE THE RECORD 
“WILL BE — BACK a ok a EVEN STARTING ADDRESS 


OM AN 


ODD BYTE STAR 


SERA ERAARAAAERAERERAERAARARARRRARREARS 


-TO TEST FOR PROPER T 
NOP 
MOV #LTIMSG,EMADDR 
MOV #WDATA,R2 
MOVB #377.(R2)+ 
CLR RO 
MOVB RO. (R2)+ 

INC RO 

CMP #6,R0 
BNE LTA 

JSR PC, 
MOV #6 FUN 
MOV #WDATA+1 ,BADR 
MOV #~6 BYTES 
MOV #MSG17,ERRAD 
JSR PC, EXEC 
NOP 

JSR PC ERCHK 
MOV #-1 SCNT 

JSR C ,BKS 
MOV #RDATA,R2 
MOV #10,R0 
MOV #-1,(R2)+ 
DEC RO 
BNE LTiD 

MOV #2,FUN 

MOV #RDATA.BADR 
MOV #-6 BYTES 
MOV #SG18,ERRAD 
JSR PC EXEC 

NOP 

JSR PC ,ERCHK 


;SET HEADE 
:GET BUFFER STAR 
; INSERT BACKGROUND DATA 


;GO REWIND 
;SET WRITE FUNCTION CODE 
:SET DATA POINTER 

;SET SIZE OF RECORD 
;SET WRITE ERROR CODE 
;GO EXECUTE COMMAND 


;GO CHECK FOR STATUS ERROR 
:GO BACKSPACE ONE RECORD 


;BACKGROUND READ BUFFER 
;DO ALL 
>SET READ FUNCTION CODE 


SET READ ERROR CODE 
:GO DO READ 


;LOAD WRITE BUFFER (0,1,2,3.4.5) 


;GO CHECK ERRORS 


SEQ 0019 


H 2 
CZTMFFO TMA,B-17 op eg ae MACY11 30A(1052) 16-AUG-78 08:51 PAGE 20 SEQ 0020 
CZTMFF P11 16-AUG~ 8:48 


696 002432 012701 007255 MOV #WDATA+1_R1 :SET EXPT DATA POINTER 
697 002436 012702 007356 MOV #RDATA,R2 “SET RCVD DATA POINTER 
698 002442 012700 200006 MOV #6,RO *SET SIZE OF RECORD 
699 002446 004737 004336 JSR PC ,DCHK =GO CHECK DAT 

700 002452 004737 004626 JSR PC ITER *GO SEE IF ITERATIONS 
701 002456 000137 001750 IMP TSCD2 “RETURN TO SCHEDULAR 


co rere ~~ ,B-11 SPLMT 
CZTMFF P11 


702 
703 


SESE 


735 


BURRS SINNSOSUNUS Saar See 


16-AUG~7 


INSTR 
08:48 


007141 
007254 


é 
MACY11 30A(1052) 16-AUG-78 08:51 PAGE 21 


LT2: 
000654 


LT2B: 


LT2C: 


LT2D: 


LI2e: 


SAAR AEAAARARAARATEAEERKEE 


: TEST 2: READ INTO ODD BYTE 
; THIS TEST WILL WRITE A_SIX (6) BYTE RECORD 


OM AN EVEN BYTE STARTING ODD STAR} THE RECORD 


44 RBs A... By 


#LT2MSG,EMADDR 
MWDATA,R2 


R 
RO, (R2)+ 


PC.EXEC 
#™SG17 ,ERRAD 


LT2D 


#2,FUN 
#RDATA+1, BADR 
#~6, BYTES 
PC,EXEC 


#MSG18,ERRAD 
PC -ERCHK 

MWUDATA,R1 
#RDATASI, R2 
#6 


;SET HEADER POINTER 
:POINT TO START OF WRITE BUFFER 


;LOAD DATA PATTERN 
ATTERN 


“GO EXECUTE COMMAND 


7SET ERROR CODE 
:GO CHECK FOR STATUS ERROR 


;GO BACKSPACE ONE RECORD 
[GET READ BUFFER POINTER 
>SET SIZE 
:BACK ‘oa POINTER 

F DONE 





C 
‘60 EXECUTE COMMAND 


;SET ERROR CODE 
:GO CHECK FOR “aaah ERROR 


HE CK A 
“G0 SEE IF ITERATION 
=RETURN TO SCHEDULAR 


SEQ 0021 


CZ 


TMFF .P 


CZTMFFO +. -B-11 SPLMT 
P11 16-AUG~7 


INSTR 
08:48 


MACY11 30A(1052) 


000636 
175510 
000664 


000634 
000634 


LT3: 


LT3A: 


LT3B: 


LTS3IT: 


LT3C: 


LT3x: 


J 2 
16-AUG-78 08:51 PAGE 22 


MADARA ASAASLAAALSLAAR AALS 2 2S @ | 


; TEST 3: OPI TOO LONG 


“THIS TEST WILL ERASE APPROXIMATELY THIRTYFIVE (35) 
“FEET OF TAPE BY WRITING WITH IRG, BACKSPACING 
-AND REPEATING THE SEQUENCE 105(1 f6°r TIMES. TAPE 
“WILL REWIND AND A READ FORWARD IS SSUED THE 

“OPI TIMER SHOULD SHUTDOWN THE UNIT BEFORE 
“REACHING THE FIRST RECORD ON TAPE. 


SERRA ARERR EERE 


NOP 

MOV wT 3MSG, EMADDR ;SET TEST HEADER 

MOV #151.RO “SET NUMBER OF WRITE IRG/BACKSPACE 
JSR PC .RWND “GO REWIND UN 

MOV Wit FUN *SET WRITE IRG FUNCTION CODE 
MOV #WDATA, BADR “SET BUS ADDRESS 

MOV #-20,BYTES “SET SIZE OF RECORD 

JSR PC, EXEC “GO EXECUTE COMMAND 

MOV #4SG17,ERRAD  ;:SET ERROR CODE 

JSR PC, ERCHK “GO CHECK FOR STATUS ERROR 
MOV #-1, SCNT 

JSR PC ,AKSP :GO BACKSPACE ONE RECORD 
DEC RO “SEE IF DONE ALL 

BNE LT3A “IF NOT: BR 

JSR PC .RWND :GO REWIND 

MOV #500, STALL *SET OPI STALL 

MOV #RDATA, BADR *SET START OF READ BUFFER 


MOV ae (BYTES SSET SIZE OF RECORD 
MOV #2 ,F :SET READ FUNCTION CODE 
MOV #8619, ERRAD ;SET ERROR 

=GO EXECUTE COMMAND 


JSR PC EXEC 

MOV #4 STALL -RESET NORMAL STALL 
BIT #400, amTS - SEE IF BTE IS SET 
BNE “IF SO: BR 

MOV Lo SpF LG “SET NO BA PRINT FLAG 
JSR PC,ERPT -GO PRINT ERROR 

CLR SPFLG “RESET 


FLAG 
sSET TO TWO (2) — 


JMP TSCD2 sRETURN TO SCHEDULAR 


SEQ 0022 


CZTMFFO TMA,B=-11 SPLMTL 
16-AUG~-78 08:48 


CZTMFF .P11 


INSTR 


MACY11 30A(1052) 


LT4: 


LT4A: 


L14B: 


LT4IT: 


LT4C: 


K 
16-AUG-78 08:51 
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MARRS AAARALALALAL ALES SSD | 


; TEST 4: OPI TOO SHORT 
“THIS TEST WILL ERASE APPROXIMATELY SIXTEEN (16) FEET 
TAPE IT KSPAC ING 


ILL _REW READ 
THE FIRST RECORD ON TAPE SHOULD BE 
MES OUT. 


;SET HEADER 
;G0 REWIND 
NUMBER OF WRITE IRG/BACKSPACES 

“SET WRITE IRG FUNCTION CODE 

;SET START OF WRITE BUFFER 

;SET SIZE OF RECORD 

7SET ERROR CODE 

:GO EXECUTE COMMAND 

:GO CHECK FOR STATUS ERROR 


;GO BACKSPACE ONE RECORD 
7SEE IF DONE ALL SEQUENCES 
F NOT: BR 








sREWIND 

‘e. OPI STALL 

:SET START OF Bi 4 BUFFER 
SET SIZE OF RECORD 

SET READ FUNCTION CODE 
ERROR CODE 


= SET 
:60 EXECUTE COMMAND 
GO CHECK FOR STATUS ERRORS 


RESET NORMAL STALL 
:SET TO TWO (2) sla 


S 
“RESET ITERATIONS 


: BY 

“ONE (1) RECORD AND 
«OF 16) TIMES TAPE WIL 
: FORWARD. 

“REACHED BEFORE OP] T] 
Ss REKKERAEEKERRREEREERERRE 
NOP 
MOV #LT4MSG,EMADDR 
JSR PC RWND 
MOV #62 ,RO 

MOV #14 FUN 

MOV #WDATA,BADR 
MOV #-20,BYTES 
MOV #"SG17,ERRAD 
JSR PC, EXEC 

JSR PC - ERCHK 

MOV #~1 SCNT 

JSR C ,BKS 

DEC 0 

BNE LT4A 

NOP 

JSR C 

MOV #500, STALL 
MOV #RDATA, BADR 
MOV #20 OvTES 
MOV FUN 

MOV #5620 .ERRAD 
JSR PC EXEC 

JSR PC’ ERCHK 

NOP 

MOV #4, STALL 

MOV #2, 1 TAMT 

JSR PC ITER 

MOV wi0, ITAMT 

JMP 62 


;RETURN TO SCHEDULAR 


SEQ 0023 


orn 
MNP 
4A 
* ha 
LA a 


Bee R SEAS Sa RorG. 


F 
0 


RORERORER 
EWN 


O TMA,B-11 SPLMTL 
~P11 16-AUG~78 


INSTR 
08:48 


3 
175024 
000001 
1 


00000 

006546 
004050 
000664 


2 
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175230 
175220 


175212 


175174 
175164 
175174 


RWNDX : 


RWNDXX : 


BKSP: 


1$: 
BKSP1: 


;REWIND SUBROUTINE **xs sane 


NOP 

MOV UDES,aMTc :SELECT UNIT 
BIT #40, ams -SEE IF AT BOT 
BNE RWAIDXX :I1F SO: BR 

BIS I? aT C :START REWIND 
TSTB amTc 

BPL 1$ sAWAIT CUR 

BIT #1,aMTS sAWAIT TUR 

BEQ RWND 1 

BIT #40 ,aMTS :SEE IF BOT SET 
BNE RWNDXX ° : 

BIT #20000 ,aSWR :SEE IF PRINT ERROR 
BNE RWNDX : IF NOT: BR 


MOV EMADDR ,R4 
JSR PC, TTOUT 
MOV R4 
JSR PC, TTOUT 
MOV #MSGS RS 
JSR PC, TTOUT 
MOV aMTs ,R3 
PC ,OCTPE 


;PRINT HEADER 
;PRINT REWIND ERROR 
sPRINT MTS TAG 









JSR sPRINT MTS 

MOV RS 

JSR PC, TTOUT :PRINT MTC TAG 

MOV aMTc.R 

JSR PC ,OCTPE ;PRINT MTC 

TST aSWR SEE IF HALT ON ERROR 
e RWND XX “IF NOT: BR 

rs PC, CKSWR :GO TEST FOR *G 

RTS PC ;RETURN 


:BACKSPACE SUBROUTINE**##8x«s«8 





NOP 

MOV -—sCUDES, 

MOV SCNT, aMTBC 

BIS #13, amTC 
amc 


amTc SELECT UNIT 
T NUMBER OF RECORDS TO SPACE 
“START SPACE REVERSE 








TSTB 

BPL 1$ -AWAIT CUR 

BIT #1 ,aMTsS 

BEQ BKSP1 :AWAIT TUR 

MOV #1,SPFLG >SET SPACE FLAG 
MOV #MSG9,ERRAD 

JSR PC ,ERCHK :GO CHECK FOR ERROR 
ae SPFLG :CLEAR SPACE FLAG 
RTS PC sRE TURN 


SEQ 0024 


corer. ae B-11 SPLMTL 
CZ 16-AUG~78 





TMFF .P 


921 


INSTR 
08:48 


000200 


000710 


000654 
005172 
006571 
005172 
174726 


MACY11 30A(1052) 


174750 


174670 
174666 
174656 


000646 


174620 


EXEC: 
EXECO: 


EXEC1: 


EXEC2: 


EXECS: 


EXEC4: 
EXECX: 


EXE CXX: 


M 
16-AUG-78 08:51 
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> COMMAND EXECUTE SUBROUTINE ****««aa0% 


PC,CKSWR 
UDES ,amTc 
BADR, aMTBA 
BYTES, aMTBC 
FUN.R 
#101.R1 
R1,aMTC 


aPSw 
pene tw 


@SWR 
EXECXX 
PC,CKSWR 
PC 


sSEE IF CUR 

“SEE IF TIMED OUT 

“SEE IF DONE HEADER 
F SO: BR 


;ELSE PRINT HEADER 


;PRINT NOT READY ERROR 
:SEE IF HALT ON ERROR 
F NOT: BR 


:GO TEST FOR “*G 
; SELECT UNIT 
T BUS MEMORY ADDRESS 
SET BYTE COUNT 
7GET FUNCTION 
:SET IN GO BIT AND INTERRUPT ENABLE 
;LOAD COMMAND+GO0+IE 
sALLOW INTERRUPTS 
;SET READY STALL 
;AWAIT INTERRUPT 


: SEE IF PRINT ERROR 
“SEE IF DONE HEADER 

: IF SO: BR 

:PRINT HEADER 

-PRINT NO INTERRUPT MESSAGE 
“SEE IF HALT ON ERROR 

“IF NOT: BR 


:GO TEST FOR “G 
;RETURN TO CALLER 


SEQ 0025 


CZTMFFO TMA,B-11 SPLMTL INSTR 
CZ P1" 08:48 





TMFF .P 16-AUG~78 

932 

933 

934 004050 005777 174526 
935 004054 1 

936 004056 000137 004126 
937 004062 005777 174516 
938 004066 001402 | 
939 004070 000137 004126 
940 004074 013703 000674 
941 004100 005403 

942 004102 063703 000672 
943 004106 005737 000664 
944 004112 001401 

945 004114 000207 

946 004116 020377 174464 
947 004122 001001 

948 004124 000207 

949 004126 000240 

950 004130 032777 020000 
951 004136 00106 

952 004140 005737 000710 
953 004144 001 

954 004146 013704 000654 
955 004152 004737 005172 
956 004156 005237 000710 
957 004162 013704 56 
958 004166 004737 005172 
959 004172 012704 006510 
960 004176 004737 005172 
961 004202 017703 174372 
962 004206 004737 005360 
963 004212 012704 006517 
964 004216 004737 005172 
965 004222 017703 174354 
966 004226 004737 005360 
967 004232 012704 006526 
968 004236 004737 005172 
969 004242 017703 174336 
970 004246 004737 005370 
971 004252 005737 

972 004256 001017 

973. 004260 012704 006536 
974 004264 004737 005172 
975 004270 017703 174312 
976 004274 004737 005370 
977 004300 013703 74 
978 004304 005403 

979 004306 063703 000672 
980 004312 004737 005370 
981 004316 005777 174276 
982 004322 100001 

983 004324 009000 

984 004326 004737 005724 
985 004332 000137 004576 


MACY11 30A(1052) 


174462 


ERCHK: 


ERCHK1: 


ERCHK2: 


ERCHK3: 


ERPT: 


ERPT1: 


ERPTX: 


ERPTXX: 


N 
16-AUG-78 08:51 
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:STATUS ERROR CHECK SUBROUTINE*****exax 


TST 
L 


TST 


PC 


BYTES,R3 
R3 
BADR R35 
PC,OCTP 
aSWR 
ERPTXX 
PC,CKSWR 
SCOPE 


;SEE IF ANY ERROR BITS 

IF NOT: 

sELSE PRINT ERROR 

; SEE Me "= COUNT IS ZERO 
“ELSE PRINT ERROR 


;SET EXPT BUS ADDRESS 
: SEE IF SPACE OPERATION 
IF NOT: BR 


;SEE IF EXPT=RCVD 
NOT: BR 

“ELSE EXIT 

: SEE IF SHOULD PRINT 

“SEE IF DONE HEADER 

IF SO: BR 


sELSE PRINT HEADER 
SET FLAG 


:PRINT ERROR CODE 
:PRINT MTS TAG 

;PRINT MTS 

;PRINT MTC TAG 

;PRINT MTC 

;PRINT BYTE COUNT TAG 
:PRINT BYTE COUNT 
:SEE IF PRINT BA 

;I1F NOT: BR 

;PRINT BUS ADDRESS TAG 
:PRINT CURRENT ADDRESS 


:PRINT EXPT ADDRESS 
>SEE If HALT ON ERROR 
: IF NOT: BR 


:GO TEST FOR “G 
;GO SEE IF SCOPE ON ERROR 


SEQ 0026 


on 
a Lae 
ee 


aaa 


SRS Seite SRR SARE Lt at 


385 


lelelelelelele)| ole) = 
el ee el ed ed edd eed eed oe 
WONAULS WN © 


RS 


PRRPERERRRESRREEEES 


OO 


SeseRk 


Ones 


1027 


FO TMA,B-11 SPLMTL 
F.P11 78 


70 
004474 
004500 


RUYSRVAWR 


INSTR 
08:48 


000704 





MACY11 30A(1052) 


000706 
174214 


000710 


DCHK: NOP 
CLR CRCNT 
DCHKO: CMPB (R1),(R2) 
BNE DCHK HKE 
DCHK1: INC CRCNT 
CMPB (R1)+,(R2)+ 
DEC RO 
BNE DCHKO 
JMP DCHKX 
—— MOV #1 ,DERFL 
BIT #20000, aSWR 
DCHKX 
TST HDRF L 
DCHKE 1 
MOV EMADDR ,R4 
JSR PC,TTOU 
V #1, 
DCHKE17: MOV #MSG12,R4 
TST PFLG 
BNE DCHKE2 
INC PFLG 
JSR PC, TTOUT 
DCHKE2: MOV G13,R4 
JSR PC, TTOUT 
MOV CRCNT,RS3 
JSR PC,OCTP 
MOV #MSG14,R4 
JSR PC, TTOUT 
MOVB (R1),R3 
JSR PC .D 
MOV #MSG15 RS 
JSR PC, TTOU 
MOVB  (R2),R3 
JSR PC ,DOU 
NOP 
JMP DCHK1 
DCHKX: 
ST DERFL 
Q DCHKXX 
TST aSwWR 
BPL DCHKXX 
HAL T 
DCHKXX: JSR PC, CKSWR 
NOP 
CLR PFLG 
CLR DERFL 
RTS PC 


B 
16-AUG-78 08:51 
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SEQ 0027 


;DATA CHECK SUBROUTINE******e0% 


;CLEAR COUNTER 

:SEE IF EXPT DATA=RCVD DATA 
;1F NOT: BR 

;BUMP CHARACTER COUNTER 
;SEE IF DONE 

:;IF NOT: BR 

sELSE GO TO EXIT ROUTINE 


;SET ERROR FLAG 
;SEE IF PRINT ERROR 


:IF NOT: BR 
sSEE IF DONE HEADER 
;IF SO: BR 


;PRINT HEADER 
;SET HEADER FLAG 


:SEE IF PRINTED DATA ERROR TAG 
IF SO: BR 


sELSE PRINT DATA ERROR TAG 
;PRINT CHAR NUMBER TAG 
;PRINT CHAR NUMBER 
:PRINT GOOD TAG 

;PRINT GOOD CHARACTER 
:PRINT BAD TAG 

:PRINT BAD CHARACTER 
sCONTINUE FOR ALL BYTES 
;SEE IF ANY ERROR 
sSeeNTr HALT ON ERROR 

; IF NOT: BR 

;GG TEST FOR “G 


;CLEAR PRINT FLAG 
;CLEAR DATA ERROR FLAG 
RE TURN 


a 
NN 
ol 
an a 


SEES ee 


SRRSRERERUSRRIRECSRERRE TS 


— es Ur ee ee, Le Le ee en ea Eee ee. 


© 
™N 
— 


3 
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P11 16-AUG-78 08:4 


-SCOPE LOOP ON ERROR SUBROUTINE **** «ews 
004576 000240 SCOPE: NOP 
004600 032777 040000 174012 BIT #40000, aSWR :SEE IF LOOP ON ERROR 
001001 BNE SCOPE 1 : : 
004610 000207 RTS “ELSE EXIT 
004612 000240 SCOPE1: NOP 
004614 005726 TST (SP) + *RESET STACK 
004616 000240 NOP 
004620 017703 174034 MOV @LTADD ,R3 
004624 000113 JMP (R3) *LOOP ON ERROR 
-TEST ITERATION SUBROUTINE ** axa sms 
004626 000240 ITER: NOP 
004630 004737 005724 JSR PC, CKSWR 
004634 032777 010000 173756 BIT #10000, aSwR :SEE IF ITERATIONS 
004642 001403 BEQ ITER1 : 
004644 005037 000702 ITERO: CLR ITCNT “CLEAR ITERATION COUNTER 
004650 000207 RTS PC “ELSE EXIT 
004652 005737 000670 ITER1: TST PCNTR “SEE IF FIRST PASS 
004656 001772 BEQ ITERO “IF SO: BR 
004660 005237 000702 INC ITCNT “BUMP COUNTER 
664 023737 000702 000634 CMP ITCNT, 1 TAMT “SEE IF DONE ALL 
004672 001764 BEQ ITERO “IF SO: BR 
004674 005726 TST (SP) + “RESET STACK 
004676 017700 173760 MOV @1TRLP,RO *SET ITERATION POINTER 
004702 000110 JMP (RO) *GO ITERATE 
-MAG TAPE INTERRUPT HANDLER®** #8289 
004704 000240 MTINT: NOP 
004706 022626 CMP (SP) +, (SP)+ :RESET STACK POINTER 
004710 042777 000100 173664 BIC #100, amMTC “CLEAR INTERRUPT ENABLE 
004716 000240 NOP 
004720 000240 NOP 
004722 000207 RTS PC = RETURN 
:TTY INTERRUPT HANDLER****exxe0% 
TTINT: NOP 
NOP 
NOP 
RTI 


non 
NIN 
a4 
az 
~ nT 


& 


BSLSIRELSSSLASSSRE 


ee ee ee ee ee ee ee ee ee ee ee ne ee ee eee eee 
MIMMNINNNNIDN 2 2 He 2 ee ee ee OOOO O 


meme ee meee meee eee ema eee meee ee eee mee me re ee ee ce Dw ce ee ee ee ee ee eed ee eed ed ed od od 


LAN 
a 


D 3 
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‘ & 
v 
a * 


PRR RASBSSGSAALALALALALLE SARE ARE RARE RAR AR ARR RRA R RRR RRS SES SS, 


tty ENTRY SUBROUTINE : 


> THIS SUBROUTINE IS USED BY THE TEST CONDITION 
SENTRY ROUTINE TO READ THE RESPONSE ii aie 
AT THE TTY AND CHECK THEM FOR LEGALITY AND 
;LIMITS. ALL RESPONSE MUST BE TYPED IN OCTAL 
: (0-7) AND MUST FALL WITHIN THE LIMITS SET BY 


; THE ING ROUTINE. 
IF AN ENTRY IS tes OR OUTSIDE THE LIMITS, 
A QUESTION MARK IS TYPED (?) AND THE RESPONSE 
MAY BE REENTERED. 
:ENTRIES MAY NOT EXCEED SIX (6) CHARACTERS AND 
:MAY BE TERMINATED AT LESS THAN SIZ BY TYPING A 
: CARRIAGE RETURN 


SRE EEEEEKREKREEEKRRAREREREKKAEREKRERERAERRRR ARE & 


004734 005037 000646 TTR: CLR TEMP ;CLEAR FIRST CHARACTER FLAG 
004740 005000 CLR RO 
004742 004737 005120 TTRO: JSR PC,TTIN ;GO READ CHARACTER 
004746 122737 000215 000644 CMPB #215,T1B ; SEE IF CR 
004754 001005 BNE TTR1 F NOT: BR 
004756 005737 000646 TST TEMP1 :SEE IF FIRST CHARACTER 
004762 001446 BEQ TTR5 O: BR 
004764 000137 005056 JMP TTR2 ‘ELSE GO LOAD VALUE 
122737 000260 000644 TTR1: CMPB #260,TIB 7SEE IF CHAR IS LESS THAN 0 
004776 101402 BLOS TTRIA ; IF NOT: BR 
005000 000137 005102 JMP TINER :ELSE GO TO ERROR 
5004 122737 000270 000644 TITRIA: CMPB #270,TIB :SEE IF CHAR IS GREATER THAN 7 
005012 101002 BHI TTR1IB ;IF NOT: BR 
005014 000137 005102 JMP TINER :ELSE GO TO ERROR 
005020 005237 000646 TTR1IB: INC TEMP ;SET FIRST CHARACTER FLAG 
005024 000241 CLC 
005026 100 RO 
005030 000241 CLC 
005032 006100 ROL RO :SHIFT 3 LEFT 
005034 000241 CLC 
005036 006100 ROL RO 
005040 042737 177770 000644 BIC #177770,T1B :STRIP ASCII 
005046 053700 000644 BIS TIB,RO =LOAD CHARACTER 
005052 005301 DEC R1 ;SEE IF DONE 
005054 001332 BNE TTRO ;IF NOT: BR 
005056 020002 TTR2: CMP RO,Re :SEE IF EXCEEDED MAXIMUM LIMIT 
005060 101402 BLOS TTR3 :IF OT: BR 
005062 000137 005102 JMP TINER sELSE GO TO ERROR 
005066 020500 TTR3: CMP R3,RO :SEE IF BELOW MINIMUM LIMIT 
005070 101402 BLOS TTR4 ;1F NOT: BR 
005072 000137 005102 JMP TINER :ELSE GO TO ERROR 
005076 010015 TTR4: MOV RO, (R5) ;LOAD VALUE 
005100 000207 TTRS: RTS PC EXIT 
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:TTY ENTRY ERROR SUBROUTINE ***aaaanne 
005102 012704 906662 TINER: MOV #MSG16,R4 
737 005172 . JSR PC, TTOUT 


06 00473 :PRINT? 
12 162716 000020 SUB #20, (SP) “RESET SP TO START OF VALUE ROUTINE 
16 000207 RTS PC “REDO VALUE ENTRY 


sTTY READ SUBROUTINE ****aannwe 


005120 005077 173500 TTIN: CLR aTKS 


ahuleabababualababebehabububebahe) ahababubobhabebebebhabbebhwbabubabad bab Cebehbahabadaduebababababebabat chabdbabababad 
RARRVSSBISVSARAVVSSRELISALAVIS VHVFARUN LS SSVSEAGRGALSE SRIRARAN 


oo 
™N 


005124 005077 173476 CLR @TKB 
005130 005037 000644 CLR —«*‘TIB 
005134 005277 173464 INC @TKS 
005140 105777 173460 TTIN): TSTB aTKS 
005144 100375 BPL  —sTTINT 
005146 017737 173454 000644 MOV = aTKB,TIB 
005154 105777 173450 “TIN2: TSTB aTPS 

5160 100375 BPL —s TT IN 
005162 113777 000644 173442 MOVB  =TIB,aTPB 
005170 000207 RTS _— PC 

TTY OUTPUT SUBROUTINE ***# xx 4% 
005172 112437 000642 TTOUT: MOVB (R4)+,T0B 
005176 122737 000043 000642 CMPB #43, T0B 
005204 001452 BEQ =e TEX 
122737 000045 000642 CMPB #45, TOB 

005214 001407 BEQ  —«TCRLF 
005216 122737 000041 000642 (MPB 0s #41, TOB 
005224 001443 BEQ ©: TELL 
005226 004737 005316 JSR —- PC, TOG 
005232 000 BR TTOUT 
005234 112737 000015 000642 TCRLF: MOVB 4#15,T0B 
005242 004737 005316 JSR —- PC, TOG 
005246 012703 000004 MOVs #43 
005252 005037 000642 TCRLFA: CLR —s-‘TOB 
005256 004737 005316 JSR —- PC, TOG 
005262 005303 DEC =—ss«RB 
005264 001372 BNE —s TCRLFA ;DO FILLERS 
005266 112737 000012 000642 MOVB #12, TOB 
005274 004737 005316 JSR —- PC, FOG 
005300 105737 000724 TSTB = RD SW 
005304 100401 BMI 1$ 
005306 000731 BR TTOUT 
005310 005037 000724 1$: CLR —sRDSW 
005314 000406 BR TEX 
005316 105777 173306 106: TSTB  alPS 
005322 100375 BPL_=—Ss«sT‘OG 
005324 113777 000642 173300 MOVB 108, aTPB 
005332 000207 TEX: RIS PC 
005334 012703 000002 TBELL: MOV = #2, R3 
005340 012737 000007 000642 TBELA: MOV 47,708 

5346 004737 005316 JSR —- PC; TOG 
005352 00530 DEC ~——s«RB 
005354 001371 THELA 
065356 000705 TTOUT 


2 


F 
i < 
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012737 
0004 


000001 
005614 


005614 


005574 
005536 
100000 


000001 
005552 
005446 


005552 


005552 


005552 


005552 


MACY11 30A(1052) 


005614 OCTPE: 


OCTP: 
OCTPE1: 


OC TPO: 


OCTP?: 
OCTP2: 


000642 OCTP3: 


= 
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;OCTAL OUTPUT SUBROUTINE ****##%s%«s 


MOV 
BR 


CLR 
MOV 


#1 ,0FL 
OC TPE 
OFL :CLEAR FLAG FOR LEADING ZERO 
R3,R4 :SEE IF NUMBER IS ZERO 
OC TPO :IF NOT ZERO: BR 
OF L i SEE IF PRINT ALL O 
OCTPO O: BR 
PC,OCTPG1 ‘ELSE PRINT ZERO 
CTP3 “§ PACE AND EXIT 
#100000 ,R4 i SEE IF MSD = 7 
yd : IF NOT: BR 
PC ,OCTPG :PRINT 1 
OC TP2 
R4 
PC,OCTPG :PRINT 0 
R3,R4 
R4 

RG 

R4 :POSITION DIGIT 
R4 

R4 

PC,OCTPG sPRINT DIGIT 2 
R3,R4 

RS 

RS 

PC ,OCTPG :PRINT DIGIT 3 
R3,R4 

RS 

R4 

RG 

PC ,OCTPG sPRINI DIGIT 4 
R3,R4 

R4 

R4 

R4 

PC ,OCTPG 

RS 

PC .OCTFG >PRINT DIGIT 5 
#240, T0B 

PC,TOG :PRINT SPACE 

PC SEXIT 


SEQ 0031 


non 
Man 
4-4 
as 

wa wm" 
. 


MMMMNN MMMM NPT 
DNRARGN IS SRVRAL 


MINN 
. a RRR 


o 
=S.0% 


1280 


BEPIEAES 


O TMA 
P11 
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177770 
005614 


000642 
000010 
000642 
172772 
000200 
000061 


000060 
000642 


000642 
172754 
172744 


000620 


000644 
0006%4 
000644 


OCTPG: 


OCTPGO: 
OCTPG1: 


OFL: 


DOUT: 


DOUT1: 


DOUT2: 
DOUTS: 


DOUTD: 


CKSWR: 


CNTLU: 


sOCTAL PRINT SUBROUTINE ****aeeawn 


BIC 
BN 
TST 


#177770,R4 
OC TPGO 

OF L 

OCTPGO 

PC 

OF L 

#260 ,R4 
R4,T0B 
PC,TOG 
R3,R4 


PC” 
-FIRST CHAR FLAG 


:DATA CHARACTER OUTPUT SUBROUTINE ***«sasa08 


TOB 
#10,R4 ;SET NUMBER TO PRINT 
R5,198 


Ld 


DOUT1 
#200, T0B 


R 

DOUT1 

PC 

TEMP3 R35 
R35 

PC ,DOUT 
TEMPS R53 


PC ,DOUT 
PC 


: SUBROUTINE TO CHANGE CONTENTS OF SOFTWARE SWITCH REGISTER 
CMP #SWR : T 


fy EG, SWR SOF TWARE + et REG PRESENT 
aTKS 
OUT 


alkK8,TIB 
#177600,TIB ; THE GARBAGE 
#7,T1B :IS IT A <*@® 


SEQ 0032 


AO 
MNP 
Nm 3EZ 
® s3 
== 


EEE erent ccc erate eee 


er ee er ee ee ed ed ed ad od et et = LU dd te 
NOAMEWN 


AN 
N 
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006022 004737 005172 JSR PC, TTOUT 





006026 005037 000722 CLR aa TEMPST 
006032 004737 906040 JSR PC, $READ :GO READ A LINE 
006036 000207 ouT: RTS PC sRETURN TO MAIN BODY OF PROGRAM 
006040 005037 000722 S$READ: CLR TEMPST 
006044 012737 000007 000720 MOV a? COUNT 
006052 004737 005120 1$: JSR ‘GO READ A CHARACTER 
006056 042737 177600 060644 BIC #197600, TIB “STRIP OFF GARBAGE 

122737 000025 000644 CMPBsé#25,T “IS IT A *U? 
006072 001002 BNE 2$ “BRANCH IF NOT 
006074 005726 3s: TST (SP)+ =POP THE STACK 
006076 000737 BR CNTLU “START OVER 
006100 122737 000015 000644 2$: CMPBSs«éd#' 15, TIB “IS IT A <CR>? 
006106 001013 BNE 4$ . “BRANCH IF NOT 
006110 012737 000200 000724 MOV #200 ,RDSW 
006116 004737 005234 JSR PC TCRLF : ECHO LT WITH <LF> 
006122 022737 000007 000720 CMP #7, COUNT “WAS IT FIRST CHARACTER 
006130 001037 ANE 7$ “CHANGE SWR IF NOT FIRST ONE 
006132 005726 8$ TST (SP)+ :POP THE STACK 
006134 000740 BR OUT *GET OUT 
006136 122737 000060 000644 4$: CMPBOtsé«W#'600, TB 
006144 003004 BGT 
006146 122737 000067 000644 (MPB = #67,TIB 
006154 002005 BGE 
006156 012704 007076 S$: MOV ASQUEST RS 
006162 004737 005172 JSR PC, TTOUT 
006166 000742 BR 3$ -START OVER IF NOT LEGAL CHARACTER 
006170 006337 000722 6$: ASL 
006174 006337 000722 ASL 
006200 006337 000722 ASL 

142737 000060 000644 BICB #60,TIB -GET NITTY-GRITTY 
006212 153737 000644 000722 BISB TIB,TEMPST 
006220 005337 000720 DEC COUNT -ONLY WANT 6 DIGITS 
006224 001754 BEQ S$ 
006226 000711 ; BR 1$ 
006230 013777 000722 172362 7$: MOV TEMPSTaSwR -CHANGE SWITCH REGISTER CONTENTS 
006236 000735 BR ae 








- 
CZTMFFO TMA.B=11 SPLMTL INSTR MACY11 30A(105<) 16-AUG-78 08:51 PAGE 534 SEQ 0034 
CZTMFF P11 16-AUG-78 08:48 
1328 
133 : RRR REE EERE RARER 
15 : MODIFIED JAN 10 1978 
1331 
1352 : ++ 
1337 : CHECK FOR DUMP MODE OR AUTOMATIC /ACT11-XXDP MODE 
1335 
1336 006240 005037 000100 CKMODE: CLR AUTOM : INIT AUTOMATIC MODE INDICATOR 
1337 006244 105037 000102 CLRB ACT11M ; I 
1338 006250 105037 000103 CLRB XXDPM 
1339 006254 105037 000104 CLRB ADUMPM DUMP INDICATOR 
13%40 006260 1050357 000105 CLRB XDUMPM : INIT XXDP DUMP MODE INDICATOR 
1341 006264 005737 000042 TST ws2 -AUTO MODE? 
1342 006270 001422 BEQ 2$ “BRANCH <IF NO 
1343. 006272 005237 000100 INC AUTOM ;SET AUTO MODE INDICATOR 
1344 006276 0237357 000042 000046 CMP B42 ,WA46 -ACT11 MODE? 
1345 006304 001403 BEQ 1$ ;BRANCH ~- IF YES 
1346 006306 105237 000105 INCB XXDPM : INDICATE XXDP AUTO MODE 
1347 006312 000421 BR 5$ “AND EXIT 
1348 006314 105237 000102 1$: INCB ACT11M : INDICATE ACT11 AUTO MODE 
1349 006320 012737 000176 000620 MoV #176, SWR SET SOFTWARE SWITCH IN ACT MODE 
1350 012777 124000 172264 MOV #124000, aSwR 7SET SWITCH REGISTER 
1351 006334 000410 BR 5$ “AND EXIT 
1352 006336 105737 000041 2$: TSTB a4) -MAN/MODE VIA ACT11/PAPER TAPE? 
1355 006342 001003 BNE 3$ “BRANCH - IF NOT 
1354 006344 105237 000104 INCB ADUMPM Fe old MAN/MODE VIA ACT11/PAPER TAPE 
1355 006350 000402 BR 5$ “AND EXIT 
1356 006352 105237 000105 3$: INCB XDUMPM : INDICATE MANUAL MODE VIA XXDP 
: eda 006356 0002 $$: RTS PC RETURN 
1359 RRR EEE REE REE 
1360 


alan 
NIN 
4 
mK FF 
_—- "TH 


SIISSE SEE RES 


=e 
Wis 


tt teh os tat 


aug 


SSSIRGER 


PRALROKHKSD 
ole) 
~N— 


_—— 3 — 
© 
WI 


1407 


O TMA, 
-P11 


022445 
043106 


3061 
021524 
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955103 
20060 


051524 
052115 


035102 


044522 
051122 


042522 
051122 
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051501 
053505 
051105 
047040 
021524 
020072 
035103 
035103 
035101 
041501 
042503 
051117 


047516 
042101 


020117 
051122 


020101 


042524 
051117 
042101 
051117 
047440 


4 
020116 
042505 


042505 


MSG1: 


MSG2: 


MSG3: 


MSG4: 


MSG5: 
MSG6: 
MSG7: 
MSG8: 
MSG9: 


MSG10: 


MSG11: 


:MESSAGE TABLE «*eeennnnn 
ASCII 


/4%CZTMFFO TMA,B=11 SPLMTL INSTR &/ 


/%ZUNIT NUMBER: &/ 
/%Z'END OF PASS: &/ 
/%' 'REWIND ERROR: NO BOTA/ 
JEMTS:: #/ 

JUMTC: #/ 

/%MTBC: #/ 

JEIMTCA: #/ 

/%' 'BACKSPACE ERRORA/ 
/%' 'NOT READY&/ 
/%''NO INTERRUPTA/ 
/XZDATA ERRORA/ 

/%ZCN: &#/ 

4G: &/ 

/%B: &/ 

/?4/ 

/EWRITE ERRORA#/ 


/ZREAD ERRORA/ 


/%i00 OPI IN 35 FEETA/ 


/%Z0P] WITHIN 16 FEETA/ 


SEQ 0035 


‘ale. 
NIN 
i 
#3 
aa ina! 


—— — 
Woon 


RLS S= 


CONOUE WR 


MMMMNN 


MERARHRRARRRRRARRSRRSR 


em ee ed eed ed wd eed od od Ld 
BHURKALRUVISS 


RE 
-—O 


O TMA 
oF 


0 
021440 


3 
007254 


177777 
007356 
000000 


000001 
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052122 


> TEST HEADER**xktaaann 
/%ZTEST 1: WRITE FROM ODD BYTEA/ 


MSG21: .ASCII 
MSG22: .ASCII 
SCNTG: .ASCII 
SMSWR: .ASCII 
SMNEW: .ASCII 
S$QUEST: .ASCII 
LTIMSG: .ASCII 
LT2MSG: .ASCII 
LT3MSG: .ASCII 
LT4MSG: .ASCII 

EVEN 
WDATA: =1 

.=.+100 
RDATA: 0Q 

END 


/% !NO UNIT(S) AVAILABLEA/ 


/%CANNOT TEST LOAD MEDIUM! !%4/ 


/2%ZTEST 2: READ TO ODD BYTEA/ 


/2XTEST 3: OPI TOO LONGA/ 


JEZTEST 4: OPI TOO SHORTA/ 





TMFF .P 


ACTCNR 
ACT11M 
ADUMPM 


AUTOM 
BADR 
BCNT 000716 
BKSP 





3644 
3604 


; 
745 


: 
789 


652s 
540 


721* 
815 
722* 


1034* 


1267 


760* 
740 


947 


725* 
737 


720* 
919 


829* 
1059 
830 


551 


735* 
8694 
736* 


901 


1269 


B05* 


748 


9494 


739% 
766 


734* 
952 


831* 
10504 


563 


764* 


765* 


928 


76/7* 
780 


765% 
956* 


1059 
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580 


776* 


777* 


984 


894 
826 


(79* 
812 


778* 
1001 


624 


809* 


810* 


1031 


921 
879 


811* 


8 
1005* 


631 


821* 


822* 


1051 


954 
9344 


824* 


8864 


825* 


647 1337* 1348 


904 942 979 


905 940 977 


12744 


1003 


878* 957 


906 


SEQ 0057 
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i oad 
1053 


MACY17 30A(1052) 


595* 
593* 
6654 


7114 


767 
14064 


965 





16-AUG-78 08: si 


62e* 
596 


14034 


969 
856* 


1062 
600 


839» 


3 
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CZTMFF.P11 © 16-AUG-78 08:48 CROSS REFERENCE TABLE -- USER SYMBOLS 
MTINT 004704 402 10674 
MTS 408# 547 565 569 783 837 842 844 854 875 961 
NOACT 001 521 5304 
OCTP 005370 510 634 636 970 976 980 1014 11934 
OCTPE 005 855 859 962 966 11914 1287 
OCTPE1 005374 1192 1194M 
TPG 005552 1203 1206 213. «-1217,—S's«*1222:—~*:é«‘z227)2~=—=«'1229 «12386 
OCTPGO 0055 1237 1239~=Ss«1241# 
OCTPG1 00557/ 1198  1242m 
OCTPO 00541. 1195 1197  1200# 
TP1 005440 1201 12054 
OCTP2 005446 1204 12074 
OCTP3 005536 1199 12304 
OF L 005614 1191* 1193 1238 1241% 1247# 
T 36 1275 1277 1281 12924 1309 
PCNTR 000670 4398 582x 635 650* 1056 
PFLG 000712 4484 1007 1009* 1033* 
16 4154 476* 910% 
RCNT 000612 4134 
RDATA 007356 684 690 697 729 735 742 776 821 14594 
Sw 000724 4534 1173 1176* 1304* 
RSTART 001072 397 476M 
RWND 3342 674 719 762 774 806 819 8354 
RWNDX 3506 847 8604 
RWNDXX 003516 838 845 861 8634 
RWND1 003376 842# 843 
SCNT 000676 442# 682% 727% 769% 814% 871 
SCOPE 004576 985 0 
SCOPE? 004612 1040 10424 
SPFLG 000664 437# 785% 787% 877% 880* 943 971 
ST 001316 5264 = «556 628 
STALL 36 4234 890 775* = 7B2® = 820s B28* ~— O91 
START 001000 393 47M 
STFLG 4384  587* 607 613* 
STSCD 002014 591 6134 
ST 001174 S044 2s 561 
ST 001452 514 541 543 545 547# 550 
ST2 001542 548 5634 ; 
ST3 001612 570 5734 
ST4 001620 0 572 S744 
STS 001632 577# ~—-579 
SUSWR 001024 4,784 
SwR 0 4164 474% 481 485x 486% 513* 542 588 603 609 644 846 860 
828 917 925 950 981 999 1028 1039 1052 1274 1286 1325* 1349 
* 
3874 = 485 542-1274 : 
11834 1186 
1161 11824 
3654 525% 554% 555 557% 
1159 11644 1305 
11674 1170 
452H 1290" 1294% 1317* 1318* 1319% 1321* 1325 
4308 Siix 915% 1098* 1103 11128 
432# 8©= 5515 523% 529% S30* 531* 533 1265 1268 
3664 0524x235 34x 535% 536k 538 567* 626 








B 4 
16-AUG-78 08:51 PAGE 41 
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494 598 615 6244 
645 6474 
1157 1177 11814 
4294 1101 1106 1109 1119* 1120 1143* 1147* £1150 1278* 1279* 1280 # £1297* 
1298 1302 1310 1312 1320* 1321 
1108 1111 1125 1128 11344 
4278 
419% 1142% 1147 1278 
4184 1141* 1144* # £41145 1276 
428A S75 1155* 1156 1158 1160 1164* 1167* 1171* # £11280 1183* 1230* 1243* 
1251* 1253* 1256 1261* 
1162 1165 1168 1172 11784 #£%1179 1184 1231 1244 
4214 1150* 1180* 1258* 1260* 
4208 1148 1178 1254 
581 5864 612 651 
5934 608 
597 5994 623 
6024 701 746 791 832 
604 6064 
4584 592 619 
1100 11414 1296 
379 10764 
11454 1146 
11484 1149 
493 503 505 559 630 849 851 853 357 895 897 922 924 
955 ~ 958 960 964 968 974 1004 1010 1012 1016 1020 1135 11554 
1163 1175 1187 1283 1285 1289 1315 
TTR 004734 $19 10984 
TTRO 004742 11004 1122 
TTR1 004770 1102 11064 
TTRIA 005004 1107 11094 
TTRIB 005020 1110 11124 
TTR2 005056 1105 11234 
TTR3 005 1124 11264 
TTR4& 005076 1127 11294 
TTRS 0051 1104 11304 
T1AD 000732 4604 
TIIAD 000734 4614 
T2AD 000736 4624 
T2ZIAD 000740 4634 
T3AD 000742 4644 
T3IAD 000744 4654 
T4AD 000746 4664 
T4IAD 000750 467A 
S 000610 412A 506* 507 S2e* 526 529 532* 535* 534 553* 567 568* 571* 
573* 626* 627* 836 870 903 
000714 4494 
667 676 696 713 721 741 764 809 14574 
3634 1340* 1556* 
3614  1338* 1346* 
497 52 653 
1282 14264 
528 562 625 6294 
339 6404 
1288 14294 
1284 14274 








C 4 
CZTMFFO TMA,B-11 SPLMTL INSTR MACY11 30A(1052) 16-AUG-78 08:51 PAGE 42 
CZTMFF .P11 16-AUG-78 08:48 CROSS REFERENCE TABLE -~ USER SYMBOLS 


SQUEST 007076 1314 14314 

SREAD 006040 1291 12944 

$SVPC = 001000 3244 345 

. = 007360 3154 324 3264 3304 3344 3384 3414 3454 3494 
4014 4054 470# 14554 14584 


. ABS. 007360 000 


ERRORS DETECTED: 0O 


CZTMFF ,CZTMFF .SEQ/SOL/NL : TOC=CZTMFF ..SML/ML ,CZTMFF P11 
RUN-TIME: 1 3 .5 SECONDS 

RUN-TIME RATIO: 41/6=6.6 

CORE USED: 7K (13 PAGES) 


DOCUMENT PAGES: 41 


3784 


3854 


3914 


SEQ 0041 


3954 


